home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / TRANS.SRC < prev   
Text File  |  1990-11-03  |  19KB  |  951 lines
  1. ;\|
  2. ;TRANS.SRC     Translated from TRANS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;TRANS    00:46:25 AM  14/ 8/89     |
  4. define(TFLAG|A|1||)
  5. define(FERROR|N|2||)
  6. define(MENU.HLDR|A|52||13)
  7. define(CNTR|N|5||)
  8. define(CNTR1|N|5||)
  9. define(CNTR2|N|5||)
  10. define(CNTR3|N|5||)
  11. define(CNTR4|N|5||)
  12. define(CNTR5|N|5||)
  13. define(DUMMY|A|10||)
  14. define(PASSWORD|A|3||)
  15. define(COMMODE|A|2||)
  16. define(CHOICE|N|2||)
  17. define(TM|A|27||11)
  18. define(C4|N|8||)
  19. define(TD|S|8||)
  20. define(OLD.BALANCE|N|9|2|)
  21. define(YES.NO|A|1||)
  22. define(NOM|A|15||)
  23. define(C1|N|1||)
  24. define(C2|N|1||)
  25. define(C3|N|2||)
  26. define(C6|N|6||)
  27. define(TD6|N|6||)
  28. define(XCNTR|N|3||)
  29. define(XCNTR2|N|3||)
  30. define(DUMMY2|A|30||)
  31. define(RECPOS|A|4||)
  32. define(TPOS|A|4||)
  33. define(VE|A|1||)
  34. trap(Q|G|REALEX)
  35. mount(PASSWORD|S)
  36. PASS:
  37. goto TRANS
  38. enter(PASSWORD||||Y|Y|Y|||N)
  39. if PASSWORD <> ("IBM") goto PASS
  40. TRANS:
  41. TRAPS:
  42. FIELDS:
  43. co(COMMODE|G)
  44. open(GPSETUP|COMMODE|0|)
  45. open(ACCOUNT|COMMODE|2|)
  46. open(TRANS|COMMODE|2|)
  47. find(B|HEADING|EXIT)
  48. date(TD|G)
  49. STARTTRN:
  50. mount(TRANS|S||)
  51. gosub ARRAY
  52. START:
  53. clrlne(1|21)
  54. AUTO:
  55. trap(6|S|BUGS)
  56. trap(I|D)
  57. trap(N|D)
  58. trap(S|I)
  59. trap(F|D)
  60. trap(G|D)
  61. trap(B|D)
  62. trap(M|D)
  63. trap(Q|G|EXIT1)
  64. trap(J|G|NOMGET)
  65. trap(C|G|CLEARTRANS)
  66. trap(1|G|UPDATEM)
  67. trap(W|I)
  68. VIEW:
  69. gosub BANKFIND
  70. enter(TRANS.DATE|||AUTO|N|Y|N|||N)
  71. if TRANS.DATE = (0) reent
  72. gosub DATECHK
  73. trap(1|I)
  74. enter(TRANS.TYPE|"IE"|||Y|Y|N|||N)
  75. trap(W|D)
  76. enter(PRACTICE.REF||||||||)
  77. enter(EXTERNAL.REF||||||||)
  78. enter(PAYER.PAYEE||||||||)
  79. enter(TRANS.DESC||||||||)
  80. enter(TRANS.AMOUNT||||||||)
  81. if TRANS.AMOUNT = (0) reent
  82. trap(7|G|REFMEN)
  83. NOMINAL:
  84. enter(NOMINAL.ACCOUNT||||||||)
  85. trap(7|I)
  86. ACCOUNT.REF = (NOMINAL.ACCOUNT)
  87. find(M|ACCOUNT.REF|NOMINAL|N)
  88. SAVE:
  89. if UPYN = ("Y") goto START
  90. if TYPE.OF.ACCOUNT <> ("N") goto BELL
  91. if TRANS.TYPE = ("E") goto E
  92. if TRANS.TYPE = ("I") goto I
  93. if TRANS.TYPE = (" ") goto BELL
  94. E:
  95. if PRINT.ORDER < (500) goto BELL
  96. goto CONT
  97. I:
  98. if PRINT.ORDER => (500) goto BELL
  99. goto CONT
  100. CONT:
  101. UPYN = ("X")
  102. save(TRANS|Y|Y|AUTO)
  103. goto AUTO
  104. UPDATEM:
  105. pmsg("  UPDATE ACCOUNTS-Y/N "|1|21|N|N|S|)
  106. enter(YES.NO|"YN"|||Y|Y|N|24|21|N)
  107. clrlne(1|21)
  108. if YES.NO <> ("Y") goto AUTO
  109. if UPYN <> ("") goto START
  110. gosub TRAPEM
  111. pmsg("PLEASE WAIT WHILE I UPDATE THE ACCOUNTS......"|15|21|N|N|S|)
  112. TFLAG = ("")
  113. transx(B)
  114. TFLAG = ("X")
  115. TPSTART:
  116. if TFLAG = ("") then transx(B)
  117. UPYN = ("X")
  118. find(M|UPYN|TPEND|)
  119. TPOS =rcn(TRANS|G)
  120. C3 =xmt(TRANS.DATE)
  121. ACCOUNT.REF = (NOMINAL.ACCOUNT)
  122. find(M|ACCOUNT.REF|ERROR|N)
  123. UPDT.ACS:
  124. MONTH[C3] = (TRANS.AMOUNT+MONTH[C3])
  125. if TRANS.AMOUNT > (0) gosub UPDT.CR
  126. if TRANS.AMOUNT < (0) gosub UPDT.DR
  127. BALANCE = (BALANCE+TRANS.AMOUNT)
  128. if LIST.ENTRIES = (0) goto WRITE.LIST
  129. if LIST.ENTRIES = (6) gosub LIST-1
  130. C1 = (LIST.ENTRIES)
  131. LOOP:
  132. C2 = (C1+1)
  133. DATE[C2] = (DATE[C1])
  134. AMOUNT[C2] = (AMOUNT[C1])
  135. if C1 = (1) goto WRITE.LIST
  136. C1 = (C1-1)
  137. goto LOOP
  138. WRITE.LIST:
  139. DATE[1] = (TRANS.DATE)
  140. AMOUNT[1] = (TRANS.AMOUNT)
  141. LIST.ENTRIES = (LIST.ENTRIES+1)
  142. TRANSACTIONS = (TRANSACTIONS+1)
  143. SAVE.UPDAC:
  144. save(ACCOUNT|N|N)
  145. find(M|ACCOUNT.REF|ERROR|)
  146. if ACCOUNT.REF = ("BANK") goto NEXT.TRANS
  147. if TYPE.OF.ACCOUNT = ("T") goto BANK
  148. ACCOUNT.REF = (TOTAL.AC)
  149. find(M|ACCOUNT.REF|NEXT.TRANS|N)
  150. goto UPDT.ACS
  151. BANK:
  152. ACCOUNT.REF = ("BANK")
  153. find(M|ACCOUNT.REF|ERROR|)
  154. if TRANS.TYPE = ("E") gosub INVERT
  155. goto UPDT.ACS
  156. NEXT.TRANS:
  157. TPOS =rcn(TRANS|S)
  158. UPYN = ("Y")
  159. save(TRANS|N|Y)
  160. transx(E)
  161. TFLAG = ("")
  162. goto TPSTART
  163. TPEND:
  164. transx(E)
  165. trap(O|D)
  166. gosub ARRAY
  167. clrlne(1|21)
  168. pmsg("UPDATING IS COMPLETE - YOU MAY NOW CONTINUE OR EXIT"|10|21|N|N|S|)
  169. goto START
  170. LIST-1:
  171. LIST.ENTRIES = (5)
  172. ret
  173. UPDT.DR:
  174. if PRINT.ORDER => (500) goto CR
  175. DR:
  176. DEBITS.TO.DATE = (DEBITS.TO.DATE+TRANS.AMOUNT)
  177. ret
  178. UPDT.CR:
  179. if PRINT.ORDER => (500) goto DR
  180. CR:
  181. CREDITS.TO.DATE = (CREDITS.TO.DATE+TRANS.AMOUNT)
  182. ret
  183. INVERT:
  184. TRANS.AMOUNT = (TRANS.AMOUNT*-1)
  185. ret
  186. EXITP:
  187. COMMODE = ("")
  188. co(COMMODE|S)
  189. ret
  190. EXITQ:
  191. ret
  192. EXIT:
  193. gosub EXITP
  194. run("recmenu")
  195. BELL:
  196. bell
  197. bkg
  198. rev
  199. wrap(1)
  200. pmsg("YOU HAVE SENT THIS TO THE WRONG ACCOUNT-ALTER AND SAVE NOW.ACCOUNTS HAVE NOT BEEN UPDATED. PRESS [Y] TO CONTINUE"|1|24|Y|N|S|YES.NO)
  201. clrlne(1|24)
  202. clrlne(1|25)
  203. frg
  204. goto START
  205. ACCOUNT:
  206. trap(C|G|CLEARAC)
  207. trap(J|G|TRANS)
  208. trap(S|G|SAVE.AC)
  209. trap(1|I)
  210. mount(ACCOUNT|S)
  211. gosub ARRAY
  212. START.AC:
  213. ACCOUNT.REF = (NOM)
  214. find(M|ACCOUNT.REF|START.AC2)
  215. START.AC2:
  216. enter(ACCOUNT.NAME|||START.AC|Y|Y|N|||N)
  217. enter(ACCOUNT.REF||||Y|N|N|||N)
  218. enter(TYPE.OF.ACCOUNT|" NST"|||Y|N|N|||N)
  219. PRORDER:
  220. enter(PRINT.ORDER|"1234567890"|||N|N|N|||N)
  221. if TYPE.OF.ACCOUNT = ("T") goto BF
  222. enter(TOTAL.AC||||Y|N|N|||N)
  223. if TOTAL.AC = (ACCOUNT.REF) goto START.AC
  224. BF:
  225. enter(BROUGHT.FORWARD||||N|N|N|||N)
  226. if BALANCE > (0) goto ACYEAR
  227. BALANCE = (BROUGHT.FORWARD)
  228. ACYEAR:
  229. ACCOUNT.YEAR =mid(TD|7|2|)
  230. enter(ACCOUNT.YEAR||||N|N|N|||N)
  231. SAVE.AC:
  232. save(ACCOUNT|Y|Y|START.AC)
  233. goto START.AC
  234. CLEARTRANS:
  235. clr(TRANS|B)
  236. goto START
  237. CLEARAC:
  238. clr(ACCOUNT|B)
  239. goto START.AC
  240. PRINTACS:
  241. gosub TRAPEM
  242. trap(I|I)
  243. clrscr
  244. C1 = (0)
  245. mount(PRINTAC|R|P)
  246. pchr(P|4)
  247. pchr(P|2)
  248. pset(80|66|66)
  249. find(B|PRINT.ORDER|EXIT2|)
  250. gosub LEADING
  251. pfmt(3|||N|N|P)
  252. pblnk(1)
  253. PRINTR:
  254. if PRINT.ORDER < (1) goto NEXTR
  255. if TYPE.OF.ACCOUNT = ("S") goto PRT.ST
  256. if TYPE.OF.ACCOUNT = ("T") goto PRT.T
  257. pfmt(5|||N|N|P)
  258. NEXTR:
  259. find(N|ACCOUNT|EXIT2)
  260. goto PRINTR
  261. PRT.ST:
  262. pblnk(1)
  263. pfmt(6|||N|N|)
  264. pblnk(1)
  265. goto NEXTR
  266. PRT.T:
  267. pblnk(1)
  268. pfmt(7|||N|N|P)
  269. if C1 = (1) goto EXIT2
  270. C1 = (1)
  271. pvert(65)
  272. pblnk(1)
  273. gosub LEADING
  274. pfmt(4|||N|N|P)
  275. pblnk(1)
  276. goto NEXTR
  277. LEADING:
  278. pfmt(1|||N|N|)
  279. pblnk(1)
  280. pfmt(2|||N|N|)
  281. pblnk(1)
  282. ret
  283. NOMINALS:
  284. gosub EXITQ
  285. trap(I|I)
  286. clrscr
  287. mount(NOMINAL|R|P)
  288. pchr(P|4)
  289. pchr(P|1)
  290. pset(132|66|60)
  291. find(B|ACCOUNT.REF|EXIT2)
  292. pfmt(1|||N|N|)
  293. NEXTX:
  294. NOMINAL.ACCOUNT = (ACCOUNT.REF)
  295. find(M|NOMINAL.ACCOUNT|STARTX)
  296. gosub PAGE
  297. PRINTX:
  298. pfmt(6|||N|N|)
  299. goto FIND
  300. PAGE:
  301. pfmt(2|||N|N|)
  302. pfmt(3|||N|N|)
  303. pfmt(4|||N|N|)
  304. pfmt(5|||N|N|)
  305. ret
  306. FIND:
  307. NOMINAL.ACCOUNT = (ACCOUNT.REF)
  308. find(N|TRANS|PRINT2)
  309. if NOMINAL.ACCOUNT <> (ACCOUNT.REF) goto PRINT2
  310. goto PRINTX
  311. PRINT2:
  312. pfmt(7|||N|N|)
  313. pfmt(8|||N|N|)
  314. pfmt(9|||N|N|)
  315. pfmt(10|||N|N|)
  316. pfmt(11|||N|N|)
  317. pfmt(12|||N|N|)
  318. goto STARTX
  319. STARTX:
  320. find(N|ACCOUNT|EXIT2)
  321. goto NEXTX
  322. ;CLEAR CURRENT ACCOUNTS|
  323. CLEARACS:
  324. trap(I|I)
  325. gosub TRAPEM
  326. mount(CLEARAC|S)
  327. gosub ARRAY
  328. enter(YES.NO|"YN"||CLEARACS|Y|Y|N|||N)
  329. if YES.NO = ("N") goto EXIT
  330. enter(C3|"0123456789"|||N|N|N|||N)
  331. find(B|ACCOUNT.REF|EXIT2)
  332. TEST:
  333. ACCOUNT.YEAR = (C3)
  334. TRANSACTIONS = (0)
  335. LIST.ENTRIES = (0)
  336. for(CNTR1|1|12|1)
  337. {
  338. MONTH[CNTR1] = (0)
  339. }
  340. for(CNTR1|1|6|1)
  341. {
  342. DATE[CNTR1] = (0)
  343. AMOUNT[CNTR1] = (0)
  344. }
  345. BROUGHT.FORWARD = (0)
  346. BALANCE = (0)
  347. DEBITS.TO.DATE = (0)
  348. CREDITS.TO.DATE = (0)
  349. AUDIT.BALANCE = (0)
  350. save(ACCOUNT|N|Y|EXIT)
  351. NEXT:
  352. find(N|ACCOUNT|END)
  353. goto TEST
  354. END:
  355. close(TRANS)
  356. DUMMY = ("TRANS")
  357. inifle(DUMMY)
  358. dos("FLAG F:\TAS\TASFILES\TRANS.* SRW")
  359. open(TRANS|||)
  360. goto EXIT2
  361. EXIT1:
  362. RUN:
  363. TM[1] = (" 1 - Accounts         01021")
  364. TM[2] = (" 2 - Transactions     01032")
  365. TM[3] = (" 3 - Clear account    01043")
  366. TM[4] = (" 4 - Print accounts   01054")
  367. TM[5] = (" 5 - Nominal print    01065")
  368. TM[6] = (" 6 - Audit account    01076")
  369. TM[7] = (" 7 - Pr.acct codes    01087")
  370. TM[8] = (" 8 - Pr.trans list    01098")
  371. TM[9] = (" 9 - EXIT             01109")
  372. MENU:
  373. TRANS.DATE = (0)
  374. find(M|TRANS.DATE|MENUXX|)
  375. del(TRANS|N)
  376. goto MENU
  377. MENUXX:
  378. menu(20|16|11|23|0|TM|CHOICE|9|22|RUN||"GP ACCOUNTING PROGRAMS"|N)
  379. on(CHOICE|G|ACCOUNT;STARTTRN;CLEARACS;PRINTACS;NOMINALS;AUDIT;PREFS;TLIST;EXIT|MENU)
  380. AUDIT:
  381. gosub TRAPEM
  382. gosub EXITQ
  383. trap(I|I)
  384. mount(AUDIT|R|P)
  385. gosub ARRAY
  386. pchr(P|4)
  387. pchr(P|1)
  388. trap(P|S|NEWPAGE)
  389. pset(120|66|60)
  390. gosub NEWPAGE
  391. goto CLEAR_IT
  392. FIRST:
  393. find(B|TRANS.DATE|EXIT2)
  394. START.AT:
  395. pfmt(3|||N|N|)
  396. pfmt(4|||N|N|)
  397. pblnk(1)
  398. FIND.NOM:
  399. ACCOUNT.REF = (NOMINAL.ACCOUNT)
  400. find(M|ACCOUNT.REF|NO.NOMINAL)
  401. gosub UPDT.AC
  402. if TRANS.TYPE = ("E") gosub INVERT
  403. ACCOUNT.REF = ("BANK")
  404. find(M|ACCOUNT.REF|NO.NOMINAL)
  405. gosub UPDT.AC
  406. pfmt(48|||n|n|)
  407. pfmt(48|||n|n|)
  408. find(N|TRANS|EXCEPT)
  409. goto START.AT
  410. NO.NOMINAL:
  411. pfmt(8|||N|N|)
  412. goto EXIT2
  413. UPDT.AC:
  414. OLD.BALANCE = (AUDIT.BALANCE)
  415. AUDIT.BALANCE = (TRANS.AMOUNT+AUDIT.BALANCE)
  416. pfmt(5|||N|N|)
  417. save(ACCOUNT|N|N|EXIT2)
  418. FIND.ST:
  419. if ACCOUNT.REF = ("BANK") goto RETURN
  420. if TYPE.OF.ACCOUNT = ("T") goto RETURN
  421. ACCOUNT.REF = (TOTAL.AC)
  422. find(M|ACCOUNT.REF|NO.NOMINAL)
  423. goto UPDT.AC
  424. RETURN:
  425. ret
  426. NEWPAGE:
  427. pvert(66)
  428. pfmt(1|||N|N|)
  429. pfmt(2|||N|N|)
  430. pfmt(48|||n|n|)
  431. pfmt(48|||n|n|)
  432. ret
  433. EXCEPT:
  434. find(B|ACCOUNT.REF|EXIT2)
  435. gosub NEWPAGE
  436. TEST.BAL:
  437. if AUDIT.BALANCE <> (BALANCE) gosub PRT.EXCEPT
  438. find(N|ACCOUNT|EXIT2)
  439. goto TEST.BAL
  440. CLEAR_IT:
  441. find(B|ACCOUNT.REF|EXIT2)
  442. ZERO:
  443. AUDIT.BALANCE = (0)
  444. if ACCOUNT.REF = ("BANK") gosub BANKAC
  445. find(N|ACCOUNT|FIRST)
  446. goto ZERO
  447. BANKAC:
  448. AUDIT.BALANCE = (BROUGHT.FORWARD)
  449. ret
  450. PRT.EXCEPT:
  451. pfmt(6|||N|N|)
  452. pfmt(7|||N|N|)
  453. ret
  454. ARRAY:
  455. clr(ACCOUNT|B)
  456. clr(TRANS|B)
  457. RECPOS = ("")
  458. TPOS = ("")
  459. ret
  460. BACKUP:
  461. run("recmenu")
  462. DATECHK:
  463. if TRANS.DATE > (TD+28) gosub MESSAGE
  464. if TRANS.DATE < (TD-28) gosub MESSAGE
  465. ret
  466. MESSAGE:
  467. bell
  468. saves(1)
  469. rev
  470. bkg
  471. pmsg("IS THIS DATE CORRECT?"|25|9|Y|Y|S|)
  472. bell
  473. frg
  474. redsp(1)
  475. ret
  476. BANKFIND:
  477. ACCOUNT.REF = ("BANK")
  478. find(M|ACCOUNT.REF|START)
  479. ret
  480. PREFS:
  481. gosub EXITQ
  482. run("ACCTREFS")
  483. TLIST:
  484. gosub EXITQ
  485. run("LISTTRAN")
  486. PATIENT:
  487. goto EXIT
  488. NOMGET:
  489. NOM = (NOMINAL.ACCOUNT)
  490. goto ACCOUNT
  491. EXIT2:
  492. run("TRANS")
  493. EXITXXX:
  494. COMMODE = ("")
  495. co(COMMODE|S)
  496. run("recmenu")
  497. REFMEN:
  498. FILES:
  499. MENU.HLDR[1] = (" A - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0101A")
  500. MENU.HLDR[2] = (" B - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0102B")
  501. MENU.HLDR[3] = (" C - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0103C")
  502. MENU.HLDR[4] = (" D - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0104D")
  503. MENU.HLDR[5] = (" E - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0105E")
  504. MENU.HLDR[6] = (" F - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0106F")
  505. MENU.HLDR[7] = (" G - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0107G")
  506. MENU.HLDR[8] = (" H - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0108H")
  507. MENU.HLDR[9] = (" I - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0109I")
  508. MENU.HLDR[10] = (" J - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0110J")
  509. MENU.HLDR[11] = (" K - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0111K")
  510. MENU.HLDR[12] = (" L - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0112L")
  511. MENU.HLDR[13] = (" M - more                                      0113M")
  512. CNTR = (1)
  513. XCNTR = (1)
  514. XCNTR2 = (0)
  515. CNTR2 = (0)
  516. find(B|PRINT.ORDER|)
  517. if TYPE.OF.ACCOUNT <> ("N") goto FILES.1X
  518. FILES.1:
  519. mid(DUMMY|CNTR|10|ACCOUNT.REF|1)
  520. mid(DUMMY2|XCNTR|30|ACCOUNT.NAME|2)
  521. CNTR = (CNTR + 10)
  522. XCNTR = (XCNTR+30)
  523. XCNTR2 = (XCNTR2+1)
  524. CNTR2 = (CNTR2 + 1)
  525. FILES.1X:
  526. find(N|ACCOUNT|FILES.2)
  527. if ACCOUNT.REF = ("BANK") goto FILES.1X
  528. if TYPE.OF.ACCOUNT <> ("N") goto FILES.1X
  529. if TRANS.TYPE = ("E") then if PRINT.ORDER < (500) goto FILES.1X
  530. if TRANS.TYPE = ("I") then if PRINT.ORDER => (500) goto FILES.1X
  531. goto FILES.1
  532. FILES.2:
  533. CNTR = (1)
  534. XCNTR = (1)
  535. FILES.3:
  536. CNTR1 = (1)
  537. FILES.4:
  538. ACCOUNT.REF =mid(DUMMY|CNTR|10|1)
  539. ACCOUNT.NAME =mid(DUMMY2|XCNTR|30|2)
  540. mid(MENU.HLDR[CNTR1]|6|10|ACCOUNT.REF|)
  541. mid(MENU.HLDR[CNTR1]|17|30|ACCOUNT.NAME|)
  542. XCNTR2 = (XCNTR2-1)
  543. XCNTR = (XCNTR+30)
  544. CNTR2 = (CNTR2 - 1)
  545. CNTR = (CNTR + 10)
  546. if CNTR2 > (0) do
  547. {
  548. if CNTR1 < (12) do
  549. {
  550. CNTR1 = (CNTR1 + 1)
  551. goto FILES.4
  552. }
  553. else
  554. {
  555. CNTR1 = (CNTR1 + 1)
  556. goto FILES.5
  557. }
  558. }
  559. FILES.5:
  560. ACCOUNT.REF = ("")
  561. CNTR3 = (CNTR1 + 1)
  562. CNTR5 = (1)
  563. menu(10|15|CNTR3|48|0|MENU.HLDR|CNTR5|CNTR1|47|NOMINAL||"ACCOUNT REFERENCES"|N)
  564. if CNTR5 < (13) do
  565. {
  566. NOMINAL.ACCOUNT =mid(MENU.HLDR[CNTR5]|6|10|)
  567. goto NOMINAL
  568. }
  569. goto FILES.3
  570. ERROR:
  571. lferrn(FERROR)
  572. pmsg(FERROR;"ABORTING TRANSACTION PROCESS - RESTART"|1|22|Y|N|S|)
  573. clrlne(1|23)
  574. transx(A)
  575. run("recmenu")
  576. BUGS:
  577. break
  578. ret
  579. REALEX:
  580. run("recmenu")
  581. TRAPEM:
  582. trap(O|G|ERROR)
  583. trap(C|I)
  584. trap(J|I)
  585. trap(D|I)
  586. trap(F|I)
  587. trap(B|I)
  588. trap(N|I)
  589. trap(G|I)
  590. trap(M|I)
  591. ret
  592. \STACCOUNT
  593.                                ACCOUNT
  594.                                -------
  595.  
  596. Account.Name: &                               :Account.Ref:&         <
  597.                                               :
  598. Type(N)ominal (S)ubtotal (T)otal:&            :Print.order:&  <
  599.                                               :
  600. Total or Subtotal Account:&         <         :Brought.forward:&
  601. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  602. Year- &            No.of.transactions:&       : Last &  transactions
  603.                                               :
  604. Jan: &                 Jul:&                  :   &           &
  605. Feb: &                 Aug:&                  :   &           &
  606. Mar: &                 Sep:&                  :   &           &
  607. Apr: &                 Oct:&                  :   &           &
  608. May: &                 Nov:&                  :   &           &
  609. Jun: &                 Dec:&                  :   &           &
  610. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  611.                                               :
  612. BALANCE:&         <                           :  AUDIT BALANCE:&
  613.                                               :
  614. DEBITS.TO.DATE :&                             : CREDITS.TO.DATE:&
  615.  
  616.  
  617. \
  618. ACCOUNT.NAME
  619. ACCOUNT.REF
  620. TYPE.OF.ACCOUNT
  621. PRINT.ORDER
  622. TOTAL.AC
  623. BROUGHT.FORWARD
  624. ACCOUNT.YEAR
  625. TRANSACTIONS
  626. LIST.ENTRIES
  627. MONTH[1]
  628. MONTH[7]
  629. DATE[1]
  630. AMOUNT[1]
  631. MONTH[2]
  632. MONTH[8]
  633. DATE[2]
  634. AMOUNT[2]
  635. MONTH[3]
  636. MONTH[9]
  637. DATE[3]
  638. AMOUNT[3]
  639. MONTH[4]
  640. MONTH[10]
  641. DATE[4]
  642. AMOUNT[4]
  643. MONTH[5]
  644. MONTH[11]
  645. DATE[5]
  646. AMOUNT[5]
  647. MONTH[6]
  648. MONTH[12]
  649. DATE[6]
  650. AMOUNT[6]
  651. BALANCE
  652. AUDIT.BALANCE
  653. DEBITS.TO.DATE
  654. CREDITS.TO.DATE
  655. \
  656. \STTRANS   
  657.  
  658.  
  659.  
  660.  
  661.  
  662.                       TRANSACTION ENTRY FOR ACCOUNT &
  663. ╔═════════════════════════════════════════════════════════════════════════╗
  664. ║                                                                         ║
  665. ║   Trans.date:&       <░░░░░░░░░░░░░░░░░░░░░░  ╔═══════════════════════╗ ║
  666. ║   Trans.Type:&░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░  ║  Credits :&           ║ ║
  667. ║    Pract.Ref:&         ░░░░░░░░░░░░░░░░░░░░░  ║  Debits  :&           ║ ║
  668. ║   Extern.Ref:&         <░░░░░░░░░░░░░░░░░░░░  ║  Balance :&         < ║ ║
  669. ║  Payer.Payee:&                             ░  ╚═══════════════════════╝ ║
  670. ║  Trans.Descr:&                           ░░░ Enter details and update   ║
  671. ║ Trans.Amount:&         <░░░░░░░░░░░░░░░░░░░░ accounts when finished by  ║
  672. ║ Noml.Account:&         <░░░░░░░░░░░░░░░░░░░░ pressing "END" key.        ║
  673. ║  Trans.Updtd:&<░░░░░░░░░░░░░░░░░░░░░░░░░░░░░                            ║
  674. ╚═════════════════════════════════════════════════════════════════════════╝
  675.      F1 - Help  F2 - Nomin.acct. Home - Acct Ref.List    Esc - menu
  676.  
  677.  
  678.  
  679.  
  680.  
  681. \
  682. COMMODE
  683. TRANS.DATE
  684. TRANS.TYPE
  685. CREDITS.TO.DATE
  686. PRACTICE.REF
  687. DEBITS.TO.DATE
  688. EXTERNAL.REF
  689. BALANCE
  690. PAYER.PAYEE
  691. TRANS.DESC
  692. TRANS.AMOUNT
  693. NOMINAL.ACCOUNT
  694. UPYN
  695. \
  696. \STCLEARAC 
  697.  
  698.  
  699.  
  700.        ┌─────────────────────────────────────────────────────────────┐
  701.        │                                                             │
  702.        │                CLEAR ACCOUNTS FOR LAST YEAR                 │
  703.        ┌─────────────────────────────────────────────────────────────┐
  704.        │                                                             │
  705.        │  Only do this at the year end. All accounts will be cleared │
  706.        │                                                             │
  707.        │  to zero, so make sure you have copies of :                 │
  708.        │                                                             │
  709.        │                TRANS  &  ACCOUNT.M&                         │
  710.        │                                                             │
  711.        │            Enter new account year:&  (eg 89)                │
  712.        │                                                             │
  713.        │            To continue press Y or N to exit:&               │
  714.        └─────────────────────────────────────────────────────────────┘
  715.  
  716.  
  717.  
  718.  
  719.  
  720.  
  721. \
  722. COMMODE
  723. C3
  724. YES.NO
  725. \
  726. \R NOMINAL 
  727. TRANSACTIONS BY ACCOUNT TO:&          FOR &                                                  ACCOUNT:&
  728. ACCOUNT:&                              ACCOUNT.REFERENCE:&           INCOME/EXPENDITURE?:&
  729. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  730.   DATE.       AMOUNT.              DESCRIPTION.                 PAYER/PAYEE                PRACT.REF       EXT.REF
  731.   -----      -------               ------------                 -----------                ---------       -------
  732. &           &               &                             &                               &               &
  733.   CREDITS:  &
  734.    DEBITS:  &
  735.       B/F:  &
  736.             ----------
  737.   BALANCE:  &
  738.             ::::::::::
  739.  
  740.  
  741.  
  742.  
  743.  
  744.  
  745.  
  746.  
  747.  
  748.  
  749.  
  750.  
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.  
  763.  
  764.  
  765.  
  766.  
  767.  
  768.  
  769.  
  770.  
  771.  
  772.  
  773.  
  774.  
  775. \
  776. TD
  777. HEADING
  778. COMMODE
  779. ACCOUNT.NAME
  780. ACCOUNT.REF
  781. TRANS.TYPE
  782. TRANS.DATE
  783. TRANS.AMOUNT
  784. TRANS.DESC
  785. PAYER.PAYEE
  786. PRACTICE.REF
  787. EXTERNAL.REF
  788. CREDITS.TO.DATE
  789. DEBITS.TO.DATE
  790. BROUGHT.FORWARD
  791. BALANCE
  792. \
  793. \R PRINTAC 
  794. INCOME AND EXPENDITURE TOTALS BY ACCOUNT TO:&         FOR  ACCOUNT NO:&
  795. &
  796. INCOME
  797. EXPENDITURE
  798. &                             -&         :     &
  799.      &                             -&         :          &
  800.           &                             -&         :               &
  801.  
  802.  
  803.  
  804.  
  805.  
  806.  
  807.  
  808.  
  809.  
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816.  
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842. \
  843. TD
  844. COMMODE
  845. HEADING
  846. ACCOUNT.NAME
  847. ACCOUNT.REF
  848. BALANCE
  849. ACCOUNT.NAME
  850. ACCOUNT.REF
  851. BALANCE
  852. ACCOUNT.NAME
  853. ACCOUNT.REF
  854. BALANCE
  855. \
  856. \R AUDIT   
  857. &                                                 - AUDIT REPORT -&
  858. --------------------------------------------------------------------------
  859.   DATE     INCOME/EXPEND    AMOUNT           PAYER/PAYEE         NOMINAL.ACCOUNT
  860. &               &         &             &                               &
  861.            &              &                               &          -> &
  862. EXCEPTION- &              &                                  BALANCE =  &
  863.                                                              AUDIT   =  &
  864. NO RECORD FOR :&           SO AUDIT REPORT ABORTED
  865.  
  866.  
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876.  
  877.  
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884.  
  885.  
  886.  
  887.  
  888.  
  889.  
  890.  
  891.  
  892.  
  893.  
  894.  
  895.  
  896.  
  897.  
  898.  
  899.  
  900.  
  901.  
  902.  
  903.  
  904.  
  905. \
  906. HEADING
  907. TD
  908. TRANS.DATE
  909. TRANS.TYPE
  910. TRANS.AMOUNT
  911. PAYER.PAYEE
  912. NOMINAL.ACCOUNT
  913. ACCOUNT.REF
  914. ACCOUNT.NAME
  915. OLD.BALANCE
  916. AUDIT.BALANCE
  917. ACCOUNT.REF
  918. ACCOUNT.NAME
  919. BALANCE
  920. AUDIT.BALANCE
  921. ACCOUNT.REF
  922. \
  923. \STPASSWORD
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.               PLEASE ENSURE BLEEP CONTROL IS SET TO AUDIBLE
  932.  
  933.  
  934.  
  935.                          ENTER PASSWORD:&
  936.  
  937.  
  938.  
  939.  
  940.  
  941.  
  942.  
  943.  
  944.  
  945.  
  946.  
  947.  
  948. \
  949. PASSWORD
  950. \
  951.